home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / netmail / tmnice42.zip / TSEMACRO.ZIP / TMNICE.S < prev   
Text File  |  1996-05-26  |  1KB  |  47 lines
  1. /*
  2.                   TSE Macro for cancelling messages
  3.                   ---------------------------------
  4.  
  5.                   Written by Marco Zehe for TMNICE 4.x
  6.  
  7.  
  8. This macro creates the TMNICE.CAN semaphore file. Just edit the
  9. EditorParam= line in TMNICE.INI to include the following (example):
  10.  
  11. EditorParam=-eTMNICE\tmnice -n5
  12.  
  13. The -e parameter tells TSE which macro to use (no extension necessary),
  14. and the -n parameter lets it jump to line 5 when the message is loaded.
  15. The relative path "TMNICE\" is required because the current directory
  16. when editing a message is the Termail home directory. If you don't like
  17. it, copy TMNICE.MAC to the TERMAIL directory.
  18.  
  19. Now, you only have to press F3 (unused in the standard TSE
  20. configuration)
  21. to cancel the message. If you need to change the key, change the
  22. statement in < > in the very last line of this file to something like
  23. <CTRL F7> or any other unused key in your configuration. Then press
  24. CTRL-F9 to recompile the macro.
  25.  
  26. Have fun!
  27.  
  28. */
  29.  
  30. // Just to set Autoindent mode to off, to avoid own text from being
  31. // auto-indented.
  32.  
  33. Proc Main()
  34.         If (Query(Autoindent) == On) Or (Query(Autoindent) ==
  35.         _STICKY_)
  36.         Set(Autoindent,Off)
  37.         EndIf
  38. End
  39.  
  40. Proc MCancelMSG()
  41.         dos("ECHO TMNICE semaphore to cancel a message >TMNICE.CAN",
  42.         _DONT_PROMPT_)
  43. End
  44.  
  45. <F3> MCancelMSG()
  46.  
  47.